home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / WFileHlp.cls < prev    next >
Text File  |  1997-06-14  |  723b  |  30 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CWindowToFile"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Implements IWindowsHelper
  13.  
  14. Public FileNumber As Integer
  15.  
  16. Private Function IWindowsHelper_DoWindow(ByVal iLevel As Integer, _
  17.                                          ByVal hWnd As Long) As Long
  18.  
  19.     BugAssert hWnd <> hNull
  20.     ' Ignore desktop window (level -1)
  21.     If iLevel >= 0 Then
  22.         ' Write data to log file
  23.         Print #FileNumber, GetWndInfo(hWnd, iLevel)
  24.     End If
  25.     ' Always successful
  26.     IWindowsHelper_DoWindow = hNull
  27. End Function
  28. '
  29.  
  30.